home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.5 Complementary Applications 2004 February / SGI IRIX 6.5 Complementary Applications 2004 February.iso / dist / cde.idb / usr / dt / share / examples / dtksh / TransEventTest.z / TransEventTest
Encoding:
Text File  |  2003-11-18  |  3.5 KB  |  103 lines
  1. #! /usr/dt/bin/dtksh
  2. #
  3. # TransEventTest
  4. #
  5. # Copyright 2000, Silicon Graphics, Inc.
  6. # ALL RIGHTS RESERVED
  7. # 
  8. # UNPUBLISHED -- Rights reserved under the copyright laws of the United
  9. # States.   Use of a copyright notice is precautionary only and does not
  10. # imply publication or disclosure.
  11. #
  12. # U.S. GOVERNMENT RESTRICTED RIGHTS LEGEND:
  13. # Use, duplication or disclosure by the Government is subject to restrictions
  14. # as set forth in FAR 52.227.19(c)(2) or subparagraph (c)(1)(ii) of the Rights
  15. # in Technical Data and Computer Software clause at DFARS 252.227-7013 and/or
  16. # in similar or successor clauses in the FAR, or the DOD or NASA FAR
  17. # Supplement.  Contractor/manufacturer is Silicon Graphics, Inc.,
  18. # 2011 N. Shoreline Blvd. Mountain View, CA 94039-7311.
  19. #
  20. # THE CONTENT OF THIS WORK CONTAINS CONFIDENTIAL AND PROPRIETARY
  21. # INFORMATION OF SILICON GRAPHICS, INC. ANY DUPLICATION, MODIFICATION,
  22. # DISTRIBUTION, OR DISCLOSURE IN ANY FORM, IN WHOLE, OR IN PART, IS STRICTLY
  23. # PROHIBITED WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF SILICON
  24. # GRAPHICS, INC.
  25. #
  26. ##########################################################################
  27. #  (c) Copyright 1993, 1994 Hewlett-Packard Company    
  28. #  (c) Copyright 1993, 1994 International Business Machines Corp.
  29. #  (c) Copyright 1993, 1994 Sun Microsystems, Inc.
  30. #  (c) Copyright 1993, 1994 Unix System Labs, Inc., a subsidiary of
  31. #      Novell, Inc.
  32. ##########################################################################
  33.  
  34.  
  35. #
  36. # This sample shell script verifies that the augment and override
  37. # capabilities for translations work as expected.  Since augmenting
  38. # a translation does not replace an existing translation, the first
  39. # pushbutton should only use our button3 translation.  Since overriding
  40. # a translation replaces an existing translation, the second pushbutton
  41. # should use both our Enter and button1 translations.
  42. #
  43. # It also demonstrates access to the TRANSLATION_EVENT convenience
  44. # environment variable.
  45. #
  46.  
  47. # EnterNotify handler
  48. Enter()
  49. {
  50.    echo EnterNotify
  51.    echo "Event = "${TRANSLATION_EVENT}
  52.    echo "Event.type = "${TRANSLATION_EVENT.TYPE}
  53.    echo "Event.xany.window = "${TRANSLATION_EVENT.XANY.WINDOW}
  54. }
  55.  
  56. # ButtonDown handler; $1 indicates which button
  57. BtnDown()
  58. {
  59.    echo "ButtonDown ("$1")"
  60.    echo "Event = "${TRANSLATION_EVENT}
  61.    echo "Event.type = "${TRANSLATION_EVENT.TYPE}
  62.    echo "Event.xany.window = "${TRANSLATION_EVENT.XANY.WINDOW}
  63.    echo "Event.xbutton.x = "${TRANSLATION_EVENT.XBUTTON.X}
  64.    echo "Event.xbutton.y = "${TRANSLATION_EVENT.XBUTTON.Y}
  65. }
  66.  
  67. # Default activate callback for the pushbuttons; should only get called
  68. # for the first pushbutton (augmented one).
  69. Activate()
  70. {
  71.    echo "Activate ("$1")"
  72. }
  73.  
  74.  
  75. ######################### Create the Main UI #################################
  76.  
  77. XtInitialize TOPLEVEL transEventTest TransEventTest "$0" "$@"
  78. XtSetValues $TOPLEVEL allowShellResize:True
  79.  
  80. XtCreateManagedWidget RC rc XmRowColumn $TOPLEVEL \
  81.          orientation:HORIZONTAL \
  82.          numColumns:2 \
  83.          packing:PACK_COLUMN 
  84.  
  85. XtCreateManagedWidget PB1 pb1 XmPushButton $RC \
  86.     labelString:"Augmented Button" \
  87.     translations:'#augment
  88.          <EnterNotify>:ksh_eval("Enter") 
  89.          <Btn1Down>:ksh_eval("BtnDown 1")
  90.          <Btn3Down>:ksh_eval("BtnDown 3")'
  91. XtAddCallback $PB1 activateCallback "Activate 1"
  92.  
  93. XtCreateManagedWidget PB2 pb2 XmPushButton $RC \
  94.     labelString:"Overridden Button" \
  95.     translations:'#override
  96.          <EnterNotify>:ksh_eval("Enter") 
  97.         <Btn1Down>:ksh_eval("BtnDown 1")'
  98. XtAddCallback $PB2 activateCallback "Activate 2"
  99.  
  100. XtRealizeWidget $TOPLEVEL
  101.  
  102. XtMainLoop
  103.